home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1999 #2 / Amiga Plus CD - 1999 - No. 2.iso / System-Boost / Sound / SoundFX / archives / sfx-data.lha / sfx-data / _rexx / ZoomLoopStart.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1998-07-11  |  469 b   |  27 lines
  1. /* SFX ZoomLoopStart */
  2.  
  3. OPTIONS RESULTS
  4. ADDRESS REXX_SFX
  5.  
  6. SFX_GetActiveBuffer
  7. buf1=RESULT
  8. IF buf1>-1 THEN DO
  9.     SFX_GetLoopMode buf1
  10.     if RESULT=1 THEN DO
  11.         SFX_GetLength buf1
  12.         slen=RESULT
  13.         SFX_GetLoopStart buf1
  14.         ls=RESULT
  15.         zs=ls-50
  16.         IF zs<0 THEN zs=0
  17.         zl=100
  18.         IF (zs+zl)>=slen THEN zl=slen-zs
  19.         SFX_SetZoomXStart buf1 zs
  20.         SFX_SetZoomXLength buf1 zl
  21.     END
  22.     ELSE SFX_Message '"No loop is set !"'
  23. END
  24. ELSE SFX_Message '"No sample to operate on !"'
  25. SFX_Activate
  26. EXIT
  27.